Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    'ﶵssդ
    With Me
        .OptionButton1.GroupName = "Group1"
        .OptionButton2.GroupName = "Group1"
    End With
End Sub

Private Sub CommandButton1_Click()
    Dim myCnt As Control
    For Each myCnt In Me.Controls
        If TypeName(myCnt) = "OptionButton" Then
            If myCnt.Value Then
                MsgBox myCnt.Name
                Exit Sub
            End If
        End If
    Next
    MsgBox "S"
End Sub

